home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.49 / mathematik / heros_wurzel_reku.p < prev    next >
Text File  |  1995-06-24  |  677b  |  34 lines
  1. program wurzel_von_heros_rekursiv;
  2.  
  3. var e,z,f,w:real;
  4.     timer: integer;
  5.  
  6. function wurzel(fehl,wurz:real):real;
  7.  begin
  8.   timer:=timer+1;
  9.   w:=0.5*(w+wurz/w);
  10.   f:=abs(w*w-wurz);
  11.   if f>fehl then wurzel:=wurzel(fehl,wurz) else wurzel:=w;
  12. end;
  13.  
  14.  
  15. begin  {  main  }
  16.  writeln;writeln;writeln;
  17.  writeln;writeln;writeln;
  18.  write('Bitte eine Zahl eingeben: ');
  19.  readln(z);
  20.  timer:=0;
  21.  if z=1 then f:=0 else f:=1;
  22.  w:=1;
  23.  if z>=1 then begin e:=wurzel(1/1000,z);
  24.   writeln('Die Wurzel aus ',z:1:0,' ist: ',e:1:4);
  25.   writeln('Es waren ',timer,' Durchläufe erforderlich.');
  26.  end else
  27.  writeln('Bitte nur Zahlen größer gleich Eins eingeben.');
  28.  writeln;
  29.  write('Enter...');
  30.  readln;
  31. end.
  32.  
  33.  
  34.